home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ COM Options 1.xpl < prev    next >
Text File  |  2001-05-25  |  3KB  |  98 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="5"
  4. "UIPATH"="Hardware\Modem"
  5. "NAME"="COM Port Speed"
  6. "VERSION"="3.02"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Speed up...."
  9. "DESCRIPTION 1"="By default, Windows only allows 9600 bytes on every serial port."
  10. "DESCRIPTION 2"="These settings simply tell the computer to allow speeds over 9600 bytes per second with Internet connections. This speeds up downloads and file transfers, etc. and can make the Internet a lot faster."
  11. "DESCRIPTION 3"="WARNING: If you are using an internal modem card (especially cards that are located in a Communication Networking Riser slot), do NOT use these settings. These cards rely on a very tricky method to work which is incompatible with these settings."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to AXCEL216 (http://members.aol.com/axcel216/) and CptSiskoX (http://sites.netscape.com/computingx/)!"
  16. "COMMENT 2"="Thanks to manish jain [emmjanex@hotmail.com] for the CNR bug notice."
  17.  
  18.  
  19. sFile="WIN.INI"
  20. sReg="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Ports\"
  21.  
  22. sSec="Ports"
  23. sTa="COM"
  24. sTb=":"
  25.  
  26. '*DEFAULT*
  27. sV_Normal="9600,n,8,1,x"
  28. '*BETTER*
  29. sV_Better="921600,n,8,1,p"
  30.  
  31. bIniMode=true
  32.  
  33.  
  34. Sub Plugin_Initialize  
  35.  Call SetUIElement(1,"Speed up COM1:")
  36.  Call SetUIElement(2,"Speed up COM2:")
  37.  Call SetUIElement(3,"Speed up COM3:")
  38.  Call SetUIElement(4,"Speed up COM4:")
  39.  Call SetUIElement(5,"Speed up COM5:")
  40.  Call SetUIElement(6,"Speed up COM6:")
  41.  Call SetUIElement(7,"Speed up COM7:")
  42.  Call SetUIElement(8,"Speed up COM8:")
  43.  Call SetUIElement(9,"Speed up COM9:")
  44.  
  45.  
  46.  if GetWinVer=1 or GetWinVer=3 then
  47.     bIniMode=true
  48.  else
  49.     bIniMode=false
  50.  end if
  51.  
  52.  
  53.  for i=1 to 9
  54.      s=sTa & i & sTb 
  55.      
  56.      if bIniMode then
  57.         s=IniReadValue(sFILE,sSec,s)
  58.      else
  59.         s=RegReadValue(sReg & s)
  60.      end if 
  61.  
  62.  
  63.      if s=sV_Better then
  64.         Call SetUIElementEx(i,true)
  65.      end if 
  66.  next 
  67.  
  68. End Sub
  69.  
  70. Sub Plugin_CheckData(ElementIndex)
  71. End Sub
  72.  
  73. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  74.  for i=1 to 9
  75.      b=GetUIElementEx(i)
  76.      s=sTa & i & sTb 
  77.     
  78.      if b=true then
  79.         sTemp=sV_Better
  80.      else
  81.         sTemp=sV_Normal
  82.      end if
  83.  
  84.  
  85.      if bIniMode then
  86.         Call IniWriteValue(sFILE,sSec,s,sTemp) 
  87.      else
  88.         Call RegWriteValue(sReg & s,sTemp,1)
  89.      end if
  90.  next 
  91.  
  92.  
  93.  Call Logoff()
  94. End Sub
  95.  
  96. Sub Plugin_Terminate 
  97. End Sub
  98.